home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / zcommbar.zip / 206.T < prev    next >
Text File  |  1987-12-22  |  2KB  |  43 lines
  1. begin:      ena -8g;cls;lput \r
  2.             lput " ╒ 206 Directory ════════════════════╕\r\n"
  3.             lput " │ a - Byte Warrior                  │\r\n"
  4.             lput " │ b - Night Shift RBBS              │\r\n"
  5.             lput " │ c - Infinity Base                 │\r\n"
  6.             lput " │ d - Underdog's Mini-Net           │\r\n"
  7.             lput " │ e - BECS Tandy FIDO               │\r\n"
  8.             lput " │ f - Sea-Bell Crossroads           │\r\n"
  9.             lput " │ g - PD Silo                       │\r\n"
  10.             lput " │ h - Electronics System            │\r\n"
  11.             lput " │ i - Twilight Zone                 │\r\n"
  12.             lput " │ j - Cardio-board                  │\r\n"
  13.             lput " │ k - Journey to Mars               │\r\n"
  14.             lput " │ l - College corner                │\r\n"
  15.             lput " │ m - Planet Claire                 │\r\n"
  16.             lput " │ n - Socratic Board                │\r\n"
  17.             lput " │ o - IBM PC UG                     │\r\n"
  18.             lput " │ p - Sears Business                │\r\n"
  19.             lput " │ 1 - New City     0 - Redial       │\r\n"
  20.             lput " ╘═══════════════════════════════════╛\r\n"
  21.           acceptl1 s1 "Letter ?"
  22.           if is1,p put "d641-6265\r"
  23.           if is1,o put "d343-7843\r"
  24.           if is1,n put "d774-3190\r"
  25.           if is1,m put "d783-8037\r"
  26.           if is1,l put "d643-0804\r"
  27.           if is1,k put "d486-3136\r"
  28.           if is1,j put "d328-7876\r"
  29.           if is1,i put "d745-2438\r"
  30.           if is1,h put "d235-8760\r"
  31.           if is1,g put "d775-2650\r"
  32.           if is1,f put "d747-1944\r"
  33.           if is1,e put "d527-5618\r"
  34.           if is1,d put "d725-9233\r"
  35.           if is1,c put "d621-9466\r"
  36.           if is1,b put "d488-0924\r"
  37.           if is1,a put "d868-2866\r"
  38.           if is1,1 break; put \rD\r;call city.pursuit.t
  39.           if is1,0 put r\r;pat 1 S?;wait;put 5\r
  40.           pat 1i LINE;pat 2 *;wait
  41.           if !1 goback begin
  42.           t
  43.